home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-02_1987_Verlag_Heinz_Weise_de.d64 / drei mal drei (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  20KB  |  452 lines
  1. 1 ifpeek(50307)<>120then10
  2. 2 poke50257,16
  3. 10 dimfr$(240),an$(240),a(240)
  4. 20 h1$="":h3$="":h4$="[157][157][157][157][157][157][157][157][157][157]"
  5. 30 data7,254,0,7,254,0,0,12,0
  6. 40 data0,24,0,0,48,0,0,96,0
  7. 50 data0,192,0,1,252,0,1,254,0
  8. 60 data0,6,0,0,6,0,0,6,0
  9. 70 data0,14,0,0,12,0,0,28,0
  10. 80 data7,248,0,3,240,0,0,0,0
  11. 90 data0,0,0,0,0,0,0,0,0
  12. 100 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,131,0,0,198,0,0,108,0,0
  13. 110 data56,0,0,56,0,0,108,0,0,198,0,1,131,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  14. 120 data0,0,0,0,0,0,0,0
  15. 130 wi=198:cu=204:co=646:ifpeek(40960)=0thenpc=1:co=241:cu=2599:wi=208
  16. 140 print"[147]"chr$(142)chr$(8):poke53280,0:poke53281,0:goto3460
  17. 150 pokev+21,0:print"[147]":poke53280,11:goto3930
  18. 160 en=0:ei$="":ifka=0then150
  19. 170 goto1390
  20. 180 ifnb=1thenforw=1to240:readfr$,an$:next
  21. 190 ifnb=0thenforw=1to240:readfr$(w),an$(w):next
  22. 200 h2$="[207][183][208][157][157][157][180] [170][157][157][157][204][175][186]":be=0
  23. 210 ru=1:forw=1to9:ze$(w)=str$(w):ze$(w)=right$(ze$(w),1):next
  24. 220 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  25. 230 forw=1to3:ifpcthenprint
  26. 240 print"[145][165]  [158][207][183][208][207][183][208][207][183][208]   [158][207][183][208][207][183][208][207][183][208]   [158][207][183][208][207][183][208][207][183][208]   [170]":ifpcthenprint
  27. 250 print"[145][165]  [158][180] [170][180] [170][180] [170]   [158][180][160][170][180] [170][180] [170]   [158][180] [170][180] [170][180] [170]   [170]":ifpcthenprint
  28. 260 print"[145][165]  [158][204][175][186][204][175][186][204][175][186]   [158][204][175][186][204][175][186][204][175][186]   [158][204][175][186][204][175][186][204][175][186]   [170]":next:ifpcthenprint
  29. 270 print"[145][165]   [175][175][175][175][175][175][175]     [175][175][175][175][175][175][175]     [175][175][175][175][175][175][175]    [170]":ifpcthenprint
  30. 280 print"[145][165]   [146][158]runde 1     [146][158]runde 2     [146][158]runde 3    [170]":ifpcthenprint
  31. 290 print"[145][165]   [183][183][183][183][183][183][183]     [183][183][183][183][183][183][183]     [183][183][183][183][183][183][183]    [170]":ifpcthenprint
  32. 300 print"[145][151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  33. 310 print"[158]";
  34. 320 forw=1to9step3:ifw=4andpc=0thenprint"[145]";
  35. 330 print""ze$(w)""ze$(w+1)""ze$(w+2):print:ifpcthenprint
  36. 340 next:print"[158]";
  37. 350 forw=1to9step3:ifw=4andpc=0thenprint"[145]";
  38. 360 print""h3$""ze$(w)""ze$(w+1)""ze$(w+2):print:ifpcthenprint
  39. 370 next:print"[158]";
  40. 380 forw=1to9step3:print"";:ifw=4andpc=0thenprint"[145]";
  41. 390 print""h3$;h3$""ze$(w)""ze$(w+1)""ze$(w+2):print
  42. 400 ifpcthenprint
  43. 410 next
  44. 420 goto480
  45. 430 zu=int(-ti):zu=int(30*rnd(0))+1:zu=zu+(be(ru)-1)*30:ifa(zu)=1then430
  46. 440 a(zu)=1:goto1050
  47. 450 print""h1$""
  48. 460 forw=1to9:print"                                      ":next:print""
  49. 470 return
  50. 480 ei$="":ifze=0thenw1=0:w2=0:w3=0:s1=0:s2=0:s3=0:d1=0:d2=0
  51. 490 gosub450:ze=ze+1
  52. 500 ifze=10thenru=ru+1:ze=0:forw=1to9:fe(w)=0:f1(w)=0:next:goto480
  53. 510 print"[158]"h1$"runde 1runde 2runde 3"
  54. 520 ifru=1thenprint""h1$"[154]runde 1"
  55. 530 ifru=2thenprint""h1$""h3$"[154]runde 2"
  56. 540 ifru=3thenprint""h1$""h3$;h3$"[154]runde 3"
  57. 550 dr=dr+1:ifdr>kathendr=1
  58. 570 print""h1$"":forw=1toka:pokeco,w+3:print
  59. 580 print""ka$(w):next
  60. 590 forw=1toka:ifpu(w)<0thenpu(w)=0
  61. 600 pu$(w)=str$(pu(w)):pu$(w)=right$(pu$(w),len(pu$(w))-1)
  62. 610 iflen(pu$(w))<6thenpu$(w)="0"+pu$(w):goto610
  63. 620 next:print""h1$""
  64. 630 forw=1toka:pokeco,w+3:print
  65. 640 printh3$""pu$(w);:ifw=drthenprint"[158] <[145]"
  66. 650 print:next
  67. 660 print""h1$"[158]spielerpunkterunde :[150]"ru
  68. 670 print""h3$;h3$"[150]"be$(ru)
  69. 675 ifru=4then4400
  70. 680 print""h3$;h3$"[155][176][192][192][192][192][192][192][192][192][192][174]"
  71. 690 printh3$;h3$"[155][221]feld :   [221]"
  72. 700 printh3$;h3$"[155][173][192][192][192][192][192][192][192][192][192][189]"
  73. 710 print""h1$;h1$;h3$;h3$;h3$"";:pokecu,0
  74. 720 print"[150]";:getx$:ifx$=""then720
  75. 730 gosub3320:ifx$="\"thentn=1-tn
  76. 740 ifx$=chr$(13)andei$<>""andfe(val(ei$))<>2andf1(val(ei$))<kathen770
  77. 750 ifx$<"1"orx$>"9"then720
  78. 760 printx$"[157]";:ei$=x$:goto720
  79. 770 f$=ei$:pokecu,1:print"[154]"ei$:goto1040
  80. 780 pokeco,dr+3:fe(val(f$))=dr
  81. 790 ifbl=1thenz(1)=1:z(2)=2:z(3)=3
  82. 800 ifbl=2thenz(1)=4:z(2)=5:z(3)=6
  83. 810 ifbl=3thenz(1)=7:z(2)=8:z(3)=9
  84. 820 ifbl=4thenz(1)=1:z(2)=4:z(3)=7
  85. 830 ifbl=5thenz(1)=2:z(2)=5:z(3)=8
  86. 840 ifbl=6thenz(1)=3:z(2)=6:z(3)=9
  87. 850 ifbl=7thenz(1)=1:z(2)=5:z(3)=9
  88. 860 ifbl=8thenz(1)=3:z(2)=5:z(3)=7
  89. 870 ifbl<>0thenforw=1to15:ifw=15thenpokeco,dr+3:forq=1to3:a=z(q):goto890
  90. 880 ifbl<>0thenpokeco,w:forq=1to3:a=z(q)
  91. 890 ifru=1thenprint"";
  92. 900 ifru=2thenprint""h3$"";
  93. 910 ifru=3thenprint""h3$;h3$"";
  94. 920 ifbl=0thena=val(f$)
  95. 930 ifa=1thenprinth2$
  96. 940 ifa=2thenprint""h2$
  97. 950 ifa=3thenprint""h2$
  98. 960 ifa=4thenprint""h2$
  99. 970 ifa=5thenprint""h2$
  100. 980 ifa=6thenprint""h2$
  101. 990 ifa=7thenprint""h2$
  102. 1000 ifa=8thenprint""h2$
  103. 1010 ifa=9thenprint""h2$
  104. 1020 ifbl<>0thennextq,w:bl=0
  105. 1030 goto1700
  106. 1040 gosub450:goto430
  107. 1050 print""h1$"[150]frage :":print"[154]"fr$(zu)" ?"
  108. 1060 la=15:print"[153]antwort :";:gosub1140
  109. 1070 ifei$=an$(zu)thenprint"richtig !":pu(dr)=pu(dr)+100
  110. 1080 ifei$=an$(zu)thenf1(val(f$))=5:goto780
  111. 1090 print"falsch  !":pu(dr)=pu(dr)-50:pokeco,7:fe(val(f$))=12
  112. 1100 f1(val(f$))=f1(val(f$))+1:iff1(val(f$))<kathenze=ze-1:goto1700
  113. 1110 goto790
  114. 1120 ei$="":getx$:ifx$=""then1120
  115. 1130 goto480
  116. 1140 ei$="":print"";:pokecu,0:ifpc=0thenforr=0to24:pokes+r,0:next
  117. 1150 getx$:ifx$=""then1150
  118. 1160 ifx$="\"thentn=1-tn:goto1150
  119. 1170 ifpc=1andtn=0then(NULL)1,6000,2:goto1200
  120. 1180 iftn=0thenpokes+1,180:pokes+5,9
  121. 1190 iftn=0thenpokes+15,30:pokes+24,15:pokes+4,21:forr=1to100:next:pokes+4,20
  122. 1200 ifx$="_"anden=1thenei$="_":x=13:goto1220
  123. 1210 x=asc(x$):ifx=20andei$=""then1150
  124. 1220 ifx=13thenpokecu,1:print" ":return
  125. 1230 ifx=20thenprint"[157]  [157][157]";:ei$=left$(ei$,len(ei$)-1):goto1150
  126. 1240 ifx>64andx<91then1280
  127. 1250 ifx$>="0"andx$<="9"then1280
  128. 1260 ifx$=" "then1280
  129. 1270 goto1150
  130. 1280 iflen(ei$)=lathen1150
  131. 1290 printx$;:ei$=ei$+x$:goto1150
  132. 1300 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":ifpcthenprint
  133. 1310 print"[145][180] [154] bitte spielernamen eingeben  (1-3)  [170]":ifpcthenprint
  134. 1320 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":en=1:ifpcthenprint
  135. 1330 la=10:ka=ka+1:print"[150]"ka"[157][158]. spieler : ";
  136. 1340 pokeco,ka+2:gosub1140:ka$(ka)=ei$
  137. 1350 pokeco,15:ifei$="_"andka>1thenka=ka-1:goto160
  138. 1360 ifei$=""orei$="_"thenka$(ka)="spieler"+str$(ka)
  139. 1370 ifka=3then160
  140. 1380 goto1330
  141. 1390 print""h1$"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  142. 1400 ifpcthenprint
  143. 1410 print"[145][180]   [154] bitte drei bereiche auswaehlen    [170]":ifpcthenprint
  144. 1420 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][146]";
  145. 1430 ifnb=0thenforw=1to8:readge$(w)
  146. 1440 ifnb=0theniflen(ge$(w))<13thenge$(w)=ge$(w)+" ":goto1440
  147. 1450 ifnb=0thennext
  148. 1460 ifnb=1thenforw=1to8:readx$:next
  149. 1470 data allerlei,technik,physik,biologie,geographie,geschichte,sport,chemie
  150. 1480 forw=1to4:print"[129]"w"[157]. [158]"ge$(w)"[129]"w+4"[157]. [158]"ge$(w+4):next
  151. 1490 bb=1:print"[157] "h1$"[159]>";
  152. 1500 getx$:ifx$=""then1500
  153. 1510 gosub3320:ifx$="\"thentn=1-tn
  154. 1520 ifx$="_"andaa=3thenprint"[157] ":goto180
  155. 1530 ifx$=""andse=0thenprint"[157] "h3$"[159]>";:se=1:bb=bb+4:goto1500
  156. 1540 ifx$="[157]"andse=1thenprint"[157] "h4$;h4$"[159]>";:se=0:bb=bb-4:goto1500
  157. 1550 ifx$=chr$(13)thenifbb=be(1)orbb=be(2)orbb=be(3)then1640
  158. 1560 ifx$=chr$(13)andaa<3andbe(1)<>bbandbe(2)<>bbthenz=z+1:goto1680
  159. 1570 ifx$=""thenbb=bb+1:ifbb<>5andbb<9thenprint"[157] [157]>";:goto1500
  160. 1580 ifbb=5thenprint"[157] "h1$""h3$;h3$">";:se=1
  161. 1590 ifbb=9thense=0:goto1490
  162. 1600 ifx$="[145]"thenbb=bb-1:ifbb<>4andbb>0thenprint"[157] [145][145][157]>";:goto1500
  163. 1610 ifbb=4thenprint"[157] "h1$;h1$">";:se=0:goto1500
  164. 1620 ifbb=0thenbb=8:print"[157] "h1$;h1$""h3$;h3$">";:se=1
  165. 1630 goto1500
  166. 1640 print"[157] [158]"ge$(bb);h4$"[157][157][157][157][157][157][157][157][159]>";
  167. 1650 forw=1to3:ifbb=be(w)thenv=w
  168. 1660 next:forw=vtoaa:be(w)=be(w+1):be$(w)=be$(w+1):next
  169. 1670 z=z-1:aa=aa-1:goto1500
  170. 1680 print"[157] "ge$(bb);h4$"[157][157][157][157][157][157][157][157][159]>";
  171. 1690 be$(z)=ge$(bb):be(z)=bb:aa=aa+1:goto1500
  172. 1700 w=dr
  173. 1710 ifw1=0andfe(1)=wandfe(2)=wandfe(3)=wthenpu(w)=pu(w)+200:w1=1:bl=1:goto790
  174. 1720 ifw2=0andfe(4)=wandfe(5)=wandfe(6)=wthenpu(w)=pu(w)+200:w2=1:bl=2:goto790
  175. 1730 ifw3=0andfe(7)=wandfe(8)=wandfe(9)=wthenpu(w)=pu(w)+200:w3=1:bl=3:goto790
  176. 1740 ifs1=0andfe(1)=wandfe(4)=wandfe(7)=wthenpu(w)=pu(w)+200:s1=1:bl=4:goto790
  177. 1750 ifs2=0andfe(2)=wandfe(5)=wandfe(8)=wthenpu(w)=pu(w)+200:s2=1:bl=5:goto790
  178. 1760 ifs3=0andfe(3)=wandfe(6)=wandfe(9)=wthenpu(w)=pu(w)+200:s3=1:bl=6:goto790
  179. 1770 ifd1=0andfe(1)=wandfe(5)=wandfe(9)=wthenpu(w)=pu(w)+200:d1=1:bl=7:goto790
  180. 1780 ifd2=0andfe(3)=wandfe(5)=wandfe(7)=wthenpu(w)=pu(w)+200:d2=1:bl=8:goto790
  181. 1790 forw=1to800:next:print""h1$;h1$""h3$"[129]>[158]space[129]<"
  182. 1800 getx$:ifx$=""then1800
  183. 1810 ifx$<>"+"andx$<>"-"thensd=0
  184. 1820 ifx$=" "then480
  185. 1830 ifx$="+"thensd=1:goto1800
  186. 1840 ifx$="-"andsd=1thensd=0:goto1860
  187. 1850 goto1800
  188. 1860 print""h1$;h1$""h3$"           "
  189. 1870 print""h1$;h1$""h3$"[150]"an$(zu)
  190. 1880 pokewi,0:waitwi,1:pokewi,0:goto480
  191. 1890 data weltsprache,esperanto,schweizer kaesegericht,fondue
  192. 1900 data begruender des kindergartens,froebel,schwerkraft,gravitation
  193. 1910 data frauenwohnung der mohammedaner,harem,hautarzt,dermatologe
  194. 1920 data zuckerkrankheit,diabetes,fremdes geld,devisen
  195. 1930 data gruender des roten kreuzes,dunant,daenischer maerchendichter,andersen
  196. 1940 data verraeter unter den 12 aposteln,judas,leichtestes nutzholz,balsa
  197. 1950 data soldatenlager im freien,biwak,erfinder der stenographie,gabelsberger
  198. 1960 data oberster hindugott,brahma,geschliffener diamant,brillant
  199. 1970 data farbe der backbordlaterne,rot,wurfholz der australier,bumerang
  200. 1980 data rundes schiffsfenster,bullauge,gewichtseinheit fuer edelsteine,karat
  201. 1990 data totes tier,aas,kratersee in der eifel,maar
  202. 2000 data reifepruefung am gymnasium,abitur,gruender des buddhismus,buddha
  203. 2010 data mohammedanischer bettelmoench,derwisch,gelbsucht,hepatitis
  204. 2020 data schottisches blasinstrument,dudelsack,handgewebter bildteppich
  205. 2030 datagobelin
  206. 2040 data vierter planet im sonnensystem,mars,getreide zum bierbrauen,gerste
  207. 2050 data anlage zur stahlerzeugung,hochofen,taktometer,metronom
  208. 2060 data ein siemens-martin-ofen erzeugt,stahl,auto mit klappverdeck,cabriolet
  209. 2070 data geschlossenes auto,limousine,amerikanische mondrakete,apollo
  210. 2080 data deutsches farbfernsehverfahren,pal,startklappe beim auto,choke
  211. 2090 data dynamo im auto,lichtmaschine,kolbenstange,pleuel
  212. 2100 data luftdruckmesser,barometer,mischung aus zinn und kupfer,bronze
  213. 2110 data mischung aus zink und kupfer,messing,pilotenkanzel,cockpit
  214. 2120 dataerfinder des drehkolbenmotors,wankel,erfinder des barometers,torricelli
  215. 2130 data erfinder der luftpumpe,guericke,erfinder des fernrohrs,galilei
  216. 2140 data erfinder d.blitzableiters,franklin,erfinder d.reklamesaeule,litfass
  217. 2150 data windzugewandte schiffseite,luv,windabgewandte schiffseite,lee
  218. 2160 data erfinder des dynamits,nobel,ort der einzigen schwebebahn,wuppertal
  219. 2170 data hoechstes bauwerk v.paris,eiffelturm,thermometer i.england,fahrenheit
  220. 2180 data hinterer teil des schiffes,heck,rechte schiffsseite,steuerbord
  221. 2190 dataerfinder d.fliessbandes,ford,erfinder d.duesenflugzeugs,messerschmidt
  222. 2200 data begruender der hebelgesetze,archimedes,braeunendes sonnenlicht (abk.)
  223. 2210 datauv
  224. 2220 data zurueckgelegte lichtstrecke im jahr,lichtjahr,sternenkunde,astronomie
  225. 2230 data die planetengesetze sind von,kepler,explosion auf d.sonne,protuberanz
  226. 2240 data stromfuehrender draht,phase,erbauer der ersten lokomotive,stephenson
  227. 2250 data zweikanalton,stereo,geraet z.messung radioakt.strahlen
  228. 2260 datageigerzaehler
  229. 2270 data entdecker des auftriebs,archimedes,entdecker der induktion,faraday
  230. 2280 dataerbauer des 1.heissluftballons,montgolfier,erfinder d.fahrrades,drais
  231. 2290 data schwedischer thermometererfinder,celsius,1.physik-nobelpreistraeger
  232. 2300 data roentgen,entdecker d.neutrons,chadwick,entdecker der kernspaltung
  233. 2310 data hahn,erbauer d.1.atomreaktors,fermi,lehre vom licht,optik
  234. 2320 data masseinheit d.kraft,newton,erfinder des 4-takt-motors,otto
  235. 2330 data abk.fuer integrierter schaltkreis,ic
  236. 2340 data masseinh.d.elektr.widerstandes,ohm,geschwindigkeitsmesser,tachometer
  237. 2350 data lehre vom schall,akustik,komplementaerfarbe von rot,gruen
  238. 2360 data summe aller farben,weiss,temperaturregler i.elektrogeraeten
  239. 2370 data thermostat,masseinheit d.frequenz,hertz
  240. 2380 dataland mit dem 1.zoo,china,suedamerik.pfeilgift,curare
  241. 2390 dataschmuck aus versteinertem harz,bernstein,an welchem pol leben pinguine
  242. 2400 datasuedpol,an welchem pol leben eisbaeren,nordpol,weibliches reh,ricke
  243. 2410 datagroesster vogel der erde,kondor,raubvogelnest,horst
  244. 2420 dataeinzige giftschlange unserer heimat,kreuzotter,ziegenpeter,mumps
  245. 2430 datagroesste druese d.menschen,leber,gesundheitspflege,hygiene
  246. 2440 databez.fuer kriechtiere,reptilien,name f.eiweiss,protein
  247. 2450 datahauptschlagader,aorta,sauerstoffreiches blut fliesst in,arterien
  248. 2460 datasauerstoffarmes blut fliesst in,venen,beinzahl einer spinne,8
  249. 2470 datamaennliche wildente,erpel,name fuer blattgruen,chlorophyll
  250. 2480 data esskastanie,marone,roter blutfarbstoff,haemoglobin
  251. 2490 data name fuer heidekraut,erika,groesster heimischer kaefer,hirschkaefer
  252. 2500 data knochenbruch,fraktur,brutschmarotzender vogel,kuckuck
  253. 2510 data wechseltierchen,amoebe,aufzeichnung der herzstroeme (abk.),ekg
  254. 2520 data rote blutkoerperchen entstehen im,knochenmark,urbild der teddybaeren
  255. 2530 datakoala
  256. 2540 dataringfoermige koralleninsel,atoll,hauptstadt v.malta,la valetta
  257. 2550 datahauptstadt von rumaenien,bukarest,hauptstadt v.norwegen,oslo
  258. 2560 datazwergstaat in d.pyrenaeen,andorra,worin muendet der nil,mittelmeer
  259. 2570 datalaengster fluss europas,wolga,groesster see der brd,bodensee
  260. 2580 dataheiliger fluss indiens,ganges,an welchem fluss liegt muenchen,isar
  261. 2590 datagroesste hollaend. nordseeinsel,texel,deutsche hochseeinsel,helgoland
  262. 2600 datasuedspitze v.spanien,gibraltar,noerdlichster staat d.usa,alaska
  263. 2610 datahoechster berg oesterreichs,grossglockner,hoechster berg i.suedamerika
  264. 2620 dataaconcagua,welcher fluss muendet ins tote meer,jordan
  265. 2630 datatrockener fallwind noerdl.d.alpen,foehn,flughafen muenchens,riem
  266. 2640 datagroesste wueste d.erde,sahara
  267. 2650 data haupstadt von sardinien,cagliari,hauptstadt von australien,canberra
  268. 2660 data groesste deutsche insel,ruegen,hoechster berg europas,mont blanc
  269. 2670 data groesste insel der erde,groenland,hauptstadt von hawai,honululu
  270. 2680 data hauptstadt von hessen,wiesbaden,hauptinsel japans,honschu
  271. 2690 data der fruehling beginnt am 21.,maerz,der winter beginnt am 22.,dezember
  272. 2700 datawo wurde karl d.grosse gekroent,aachen,germanische schriftzeichen
  273. 2710 datarunen,ritterkampfspiel im mittelalter,turnier,franz.fallbeil
  274. 2720 dataguillotine,moerder siegfrieds,hagen,griechischer goetterbote,hermes
  275. 2730 dataisraelisches parlament,knesset,dichter der odyssee,homer
  276. 2740 databegruender d.islam,mohammed,heiliges buch d.islam,koran
  277. 2750 dataantiker leuchtturm vor alexandria,pharos,koenig des antiken troja
  278. 2760 datapriamos,sitz d.griech.goetter,olymp,priesterin im delphischen orakel
  279. 2770 datapythia,frieden nach d.30-jaehrigen krieg,westfaelischer friede
  280. 2780 datamittelalterl.handwerker-vereinigung,zunft
  281. 2790 datagruendungsjahr d.deutschen reichs,1871,verfassung der brd,grundgesetz
  282. 2800 datalaienrichter,schoeffe,staatsform mit koenig,monarchie
  283. 2810 data tuerabstimmung im bundestag,hammelsprung,komponist d.deutschen hymne
  284. 2820 datahaydn
  285. 2830 data heldenlied,epos,begruender des kommunismus,marx
  286. 2840 data geburtsinsel napoleons,korsika,begruender der sowjetunion,lenin
  287. 2850 data parteienbuendnis,koalition,westliches verteidigungsbuendnis,nato
  288. 2860 data oestliches verteidigungsbuendnis,warschauer pakt
  289. 2870 datadie erste atombombe fiel auf,hiroshima
  290. 2880 data bezeichnung fuer federball,badminton,bekannter deutscher golfspieler
  291. 2890 data langer
  292. 2900 data freiwurfentf.b.basketball (cm),460,leichteste boxklasse
  293. 2910 data papiergewicht
  294. 2920 data geraet b.gewichtheben,hantel,huerdenhoehe 110 m maenner (mm)
  295. 2930 data 1067
  296. 2940 data leichteste klasse beim judo,federgewicht,fussballweltmeister 1986
  297. 2950 data argentinien
  298. 2960 data franzoesische radrundfahrt,tour de france,freier mann beim fussball
  299. 2970 data libero
  300. 2980 data motorradrennen auf eis,speedway,bekannte autorennstrecke i.d.eifel
  301. 2990 data nuerburgring,hindernisbahn fuer pferdespringen,parcours
  302. 3000 data mannschaftsstaerke im hallenradball,2,torlauf fuer skifahrer,slalom
  303. 3010 data hoehe d.tennisnetzes i.d.mitte (mm),915,drehfigur im eiskunstlauf
  304. 3020 data pirouette
  305. 3030 data erfinder des volleyballspiels,morgan,turngeraet mit zwei holmen
  306. 3040 data barren,waffenloser korean.kampfsport,taekwando
  307. 3050 data fremdwort fuer fussballtrainer,coach,ein fussballspiel dauert (min.)
  308. 3060 data90
  309. 3070 data ein eishockeyspiel dauert (min.),60,beruehmtes skigelaende bei oslo
  310. 3080 dataholmenkollen
  311. 3090 data beruehmter finn.langstreckenlaeufer,nurmi,berufssportler,profi
  312. 3100 data vereinswechsel beim fussball,transfer,balken beim frauenturnen
  313. 3110 dataschwebebalken
  314. 3120 data erfinder des basketballs,naismith,italienisches nationalspiel,boccia
  315. 3130 data erfinder d.photographie,daguerre,metallmischung,legierung
  316. 3140 data atomgruppe,molekuel,was ist c2h5oh,alkohol
  317. 3150 data mischung a.wasserstoff u.sauerstoff,knallgas
  318. 3160 data was ist natriumchlorid,kochsalz,erfinder d.chem.formelsprache
  319. 3170 databerzelius,was ist natriumkarbonat,soda,was ist kalziumsulfat,gips
  320. 3180 data salz der salzsaeure,chlorid,lackmus faerbt s.bei saeure,rot
  321. 3190 data lackmus faerbt s.bei lauge,blau,chem.formel fuer eisen,fe
  322. 3200 data salzbildner (z.b.chlor) heissen,halogene,neon und argon sind,edelgase
  323. 3210 data erfinder d.schiesspulvers,schwarz,mittelalterl.chemiker,alchimist
  324. 3220 data leichtestes element,wasserstoff,schwerstes element,osmium
  325. 3230 data einfachster kohlenwasserstoff,methan
  326. 3240 data aus salmiakgeist entweicht das gas,ammoniak,gegengift,antitoxin
  327. 3250 data beim verbrennen v.schwefel entsteht,schwefeldioxid
  328. 3260 datazerlegung eines stoffes,analyse
  329. 3270 data elektrische zerlegung eines stoffes,elektrolyse
  330. 3280 dataringfoermiger kohlenwasserstoff,benzol
  331. 3290 data herabhaengende tropfsteine,stalagtiten,hauptbestandteil der luft
  332. 3300 datastickstoff
  333. 3310 data natrium faerbt eine flamme,gelb,unversteuerter alkohol,spiritus
  334. 3320 iftn=1thenreturn
  335. 3330 ifpcthen(NULL)1,5000,2:return
  336. 3340 s=54272:fort=0to24:pokes+t,0:next:pokes+1,190:pokes+5,9:pokes+15,30
  337. 3350 pokes+24,15:pokes+4,21:forr=1to100:next:pokes+24,0:return
  338. 3360 print"[147][150]          *** [154]siegerehrung [150]***":pokewi,0
  339. 3370 ifpcthen(NULL)1,1:(NULL)2,1:(NULL)3,1:goto3390
  340. 3380 pokev+21,50:pokev+40,7:pokev+44,7:pokev+43,5
  341. 3390 print""h1$"[153]   herzlichen glueckwunsch ";:n$=""
  342. 3400 forw=1toka-1:forq=wtoka:we=0:ifpu(w)<pu(q)thenwe=1
  343. 3410 ifwe=1thenh$=ka$(w):ka$(w)=ka$(q):ka$(q)=h$:h=pu(w):pu(w)=pu(q):pu(q)=h
  344. 3420 nextq,w:print"[150]"ka$(1):print"[159]----------------------------------------"
  345. 3422 fori=1toka
  346. 3423 print"   "ka$(i),":  ";pu(i);" punkte"
  347. 3424 next
  348. 3430 print"[158] taste druecken !!! [150]"
  349. 3440 getx$:ifx$=""then3440
  350. 3450 run10
  351. 3460 ifpcthen3710
  352. 3470 v=53248:poke2045,15:forw=0to62:readq:poke960+w,q:next:pokev+44,7
  353. 3480 restore:poke2041,11:forw=0to62:readq:poke704+w,q:next:pokev+40,7:pokev+23,50
  354. 3490 pokev+29,50
  355. 3500 forw=0to62:readq:poke896+w,q:next
  356. 3510 poke2044,14:pokev+43,5
  357. 3520 pokev+10,162:pokev+2,164:pokev+8,162
  358. 3530 pokev+21,50:forw=0to180:pokev+9,abs(w-5):pokev+3,w:pokev+11,w:forr=1to5
  359. 3540 nextr,w:forw=1to50:pokev+10,162-w:pokev+2,164+w:forr=1to20:nextr,w
  360. 3550 print"                [150]i[129]n[158]p[154]u[159]t 6[153]4":gosub3320:forw=1to1000:next
  361. 3560 forq=1to4:forw=0to15:pokev+40,w:pokev+43,w:pokev+44,w
  362. 3570 fort=1to20:nextt,w,q
  363. 3580 pokev+43,5:pokev+40,7:pokev+44,7
  364. 3590 forw=180to150step-1:pokev+9,w:forq=1to15:nextq,w
  365. 3600 forw=180to130step-1:pokev+3,w:pokev+9,w-35:pokev+11,w:forq=1to25
  366. 3610 nextq,w
  367. 3620 forw=130to100step-1:pokev+11,w:pokev+3,w:forq=1to15:nextq,w:gosub3320
  368. 3630 print""h1$"[150]      ein unterhaltsames quiz mit":forw=1to2000:next
  369. 3640 gosub3320:print"[154]           bis zu 3 spielern":forw=1to1500:next
  370. 3650 gosub3320:print"[150]              in 3 runden":forw=1to1000:next
  371. 3660 gosub3320:print"[153]        von th. langenkamp 1986"
  372. 3670 fa=fa+1:iffa=16thenfa=1
  373. 3680 pokev+40,fa:pokev+43,fa:pokev+44,fa
  374. 3690 getx$:ifx$<>""then150
  375. 3700 goto3670
  376. 3710 rem --- 128 sprites ---
  377. 3720 restore3730:forw=1to67:reada:a$=a$+chr$(a):next:(NULL)a$,1:(NULL)1,3
  378. 3730 data 0,0,0,0,0,0,1,255,0,1,255,0,0,3,0,0,7,0,0,14,0,0,28,0,0,62,0,0,31
  379. 3740 data 0,0,7,128,0,3,128,0,1,128,0,1,128,0,3,128,0,7,0,1
  380. 3750 data 254,0,1,252,0,0,0,0,0,0,0,0,0,0,23,0,20,0,0,0,0,0
  381. 3760 a$="":restore3770:forw=1to67:reada:a$=a$+chr$(a):next:(NULL)a$,2
  382. 3763 restore1470
  383. 3770 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,227,128,0,227,128
  384. 3780 data 0,119,0,0,62,0,0,28,0,0,62,0,0,28,0,0,62,0,0,119,0,0,227,128,0,227
  385. 3790 data 128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,20,0,0
  386. 3800 (NULL)1,157,0:(NULL)2,175,0:(NULL)3,157,0
  387. 3810 (NULL)1,1,8,0,1,1,0:(NULL)2,1,6,0,1,1,0:(NULL)3,1,8,0,1,1,0
  388. 3820 forw=1to180:(NULL)1,+0,+1:(NULL)2,+0,+1:(NULL)3,+0,+1:next
  389. 3830 forw=1to50:(NULL)1,-1,+0:(NULL)3,+1,+0:nextw
  390. 3840 print"                [150]i[129]n[158]p[154]u[159]t 6[153]4":(NULL)1,6000,2:(NULL)1
  391. 3850 forw=1to40:(NULL)2,+0,-1:next
  392. 3860 forw=1to50:(NULL)1,+0,-1:(NULL)2,+0,-1:(NULL)3,+0,-1:next
  393. 3870 forw=1to40:(NULL)1,+0,-1:(NULL)3,+0,-1:next:(NULL)1,6000,2
  394. 3880 print""h1$"[150]      ein unterhaltsames quiz mit":(NULL)1
  395. 3890 (NULL)1,6000,2:print"[154]           bis zu 3 spielern":(NULL)1
  396. 3900 (NULL)1,6000,2:print"[150]              in 3 runden":(NULL)1
  397. 3910 (NULL)1,6000,2:print"[153]        von th. langenkamp 1986":(NULL)1
  398. 3920 get(NULL)x$:forw=1to3:(NULL)w,0:next:goto150
  399. 3930 print"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":ifpcthenprint
  400. 3940 print"[145][180]  [154]            m e n u e               [170]":ifpcthenprint
  401. 3950 print"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":ifpcthenprint
  402. 3960 ifpeek(50307)=120then4300
  403. 3962 print"[158] soll ein weiterer teil":print" nachgeladen werden ? [150]";
  404. 3970 getx$:ifx$=""then3970
  405. 3980 ifx$="n"orx$="[206]"then1300
  406. 3990 ifx$="j"orx$="[202]"thenprint"ja":goto4000
  407. 3995 goto3970
  408. 4000 print:print"[153] cassette [150]oder [153]diskette ?[150] ";
  409. 4020 getx$:ifx$=""then4020
  410. 4030 ifx$="c"orx$="[195]"thenprint"cassette":goto4170
  411. 4040 ifx$="d"orx$="[196]"thenprint"diskette":goto4050
  412. 4045 goto4020
  413. 4050 la=16:print:print"[154] filename : [150]";:gosub1140:w=1
  414. 4060 open2,8,2,ei$+",s,r"
  415. 4070 open15,8,15:input#15,a$,b$:ifval(a$)thenprint"[153] fehler :[158] "b$:goto4160
  416. 4080 forw=1to8:input#2,ge$(w)
  417. 4090 iflen(ge$(w))<13thenge$(w)=ge$(w)+" ":goto4090
  418. 4100 print"[154] element  : [150]";w:nextw
  419. 4110 forw=1to240:print"[154] element  : [150]";w
  420. 4120 input#2,fr$(w),an$(w):iflen(fr$(w))>37thenfr$(w)=left$(fr$(w),37)
  421. 4130 iflen(an$(w))>25thenan$(w)=left$(an$(w),25)
  422. 4140 nextw
  423. 4150 nb=1:print"[159] ok.":close15:close2:forw=1to2500:next:goto1300
  424. 4160 close2:close15:forw=1to2500:next:goto3930
  425. 4170 sa=1:ifpc=0andpeek(49152)=169thensa=7
  426. 4180 ifsa=7thenprint"[153] supertape aktiviert !!!"
  427. 4190 la=16:print"[154] filename : [150]";:gosub1140:ifei$=""then3930
  428. 4200 print"[158] bitte play druecken !!! [144]";:open1,sa,0,ei$
  429. 4210 forw=1to8:input#1,ge$(w):print""
  430. 4220 iflen(ge$(w))<13thenge$(w)=ge$(w)+" ":goto4220
  431. 4230 nextw
  432. 4240 forw=1to240:input#1,fr$(w),an$(w):print""
  433. 4250 iflen(fr$(w))>37thenfr$(w)=left$(fr$(w),37)
  434. 4260 iflen(an$(w))>25thenan$(w)=left$(an$(w),25)
  435. 4270 nextw
  436. 4280 nb=1:forw=1to3500:next:close1:goto1300
  437. 4290 print"[147][158] fehlermeldung                          ":ifpcthenprint
  438. 4300 print"[153] ausserhalb des [150]input 64-[153]betriebs-"
  439. 4310 print" systems erlaubt ihnen dieses programm"
  440. 4311 print" geeignete dateien nachzuladen."
  441. 4312 print:print" speichern sie dazu das programm erst"
  442. 4313 print" mit ctrl-s auf ihren eigenen daten-"
  443. 4314 print" traeger ab."
  444. 4320 print"[129] >[158]taste[129]<"
  445. 4330 getx$:ifx$=""then4330
  446. 4340 goto1300
  447. 4400 print""h3$;h3$"[155]bitte taste"
  448. 4410 printh3$;h3$"[155]           "
  449. 4420 printh3$;h3$"[155]druecken!! "
  450. 4430 getx$:ifx$=""then4430
  451. 4440 goto3360
  452.